home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / mus / edit / OctamedSS1.03c.lha / Soundstudio / Rexx / omed.lha / rexx / Killtrack.omed < prev    next >
Text File  |  1996-06-09  |  398b  |  20 lines
  1. /* Kill track */
  2. 'wi_request "Kill track?" "Full track|Only following notes|Cancel" var answer'
  3. select
  4. when answer=2 then do
  5.     op_update off
  6.     'ed_killnotes currtrack'
  7.     op_update on
  8.     wi_showstring "Killed."
  9.     end
  10. when answer=1 then do
  11.     op_update off
  12.     ed_getcurrline var currline
  13.     ed_goto line 0
  14.     'ed_killnotes currtrack'
  15.     ed_goto line currline
  16.     op_update on
  17.     wi_showstring "Killed."
  18.     end
  19. otherwise
  20. end